home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / lib_test / test_inspect2.e < prev    next >
Encoding:
Text File  |  1996-05-02  |  332 b   |  20 lines
  1. class TEST_INSPECT3
  2.  
  3. creation {ANY}
  4.    make
  5.  
  6. feature {ANY}
  7.    
  8.    make is
  9.       do
  10.          inspect
  11.         1
  12.          when 2 then io.put_string("Impossible%N")
  13.          when 3 then io.put_string("Impossible aussi%N")
  14.      else
  15.          end   
  16.      -- io.put_string("Maintenant, je souris :-)%N");
  17.       end; 
  18.    
  19. end -- class TEST_INSPECT3
  20.